SELECT...INTO û przyk│ad instrukcji

W tym przyk│adzie wybierane s╣ wszystkie rekordy tabeli Pracownicy, po czym s╣ one kopiowane do nowej tabeli o nazwie Kopia prac.

Sub SelectIntoX()

    Dim dbs As Database

    Dim qdf As QueryDef

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Wybierz wszystkie rekordy tabeli Pracownicy

    ' i skopiuj je do nowej tabeli Kopia prac.

    dbs.Execute "SELECT Pracownicy.* INTO " _

        & "[Kopia prac] FROM Pracownicy;"

    ' Poniewa┐ jest to przyk│ad, Usu± tabelΩ.

    dbs.Execute "DROP TABLE [Kopia prac];"

    dbs.Close

End Sub